home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / comp0_89.lha / Feel / Boot / Compiler / gen-docs.em < prev    next >
Lisp/Scheme  |  1993-07-12  |  1KB  |  43 lines
  1. ;; Eulisp Module
  2. ;; Author: pab
  3. ;; File: gen-docs.em
  4. ;; Date: Mon Jul 12 19:15:28 1993
  5. ;;
  6. ;; Project:
  7. ;; Description: 
  8. ;;  Tracks documentation strings. Basically a hack.
  9. ;;  Initialized and used by gen-code. File finalised by output
  10.  
  11. (defmodule gen-docs
  12.   (eulisp0
  13.    fn-docs         
  14.    abs-syntx
  15.    )
  16.   ()
  17.  
  18.   (export initialize-docs add-documented-entry complete-docs docs-name)
  19.   
  20.   (deflocal *the-directory* nil)
  21.   (deflocal *entry-count* 0)
  22.   (deflocal *module-name* nil)
  23.  
  24.   (defun initialize-docs (name)
  25.     "Create the necessary junk"
  26.     (setq *module-name* name)
  27.     (setq *the-directory* (make-directory (format nil "~a.doc" name))))
  28.   
  29.   (defun docs-name () *module-name*)
  30.   ;; returns id of entry
  31.   (defun add-documented-entry (name doc)
  32.     (let ((count *entry-count*))
  33.       (output-record *the-directory* (make-info name doc))
  34.       (setq *entry-count* (+ *entry-count* 1))
  35.       count))
  36.  
  37.   (defun complete-docs ()
  38.     (finalise-dbase *the-directory*)
  39.     (setq *the-directory* nil))
  40.   
  41.   ;; end module
  42.   )
  43.